Chip 2005 May/CMCD0505.ISO/Software/Demo/DesktopX/objects/ktekdockv1.dxpack/{DBA771A0-A28D-4A8D-BD75-1E5C6D9719A4}.DXScript2

Extensible Markup Language | 2004-08-24 | 14KB | 413 lines

<?xml version="1.0"?>
<!--DXScript Data File.  Version 2.0-->
<DXScript>
    <Script><![CDATA[Dim x1,y1,x2,y2
Dim ExpandType
Dim appon
Dim secstart,secgap
Dim shortcuts()
Dim sections()
Dim totalheight
Dim tt

'Called when the script is executed
Sub Object_OnScriptEnter
    DesktopX.Object("kbarback").move 0,0
    ExpandType = 2'1 = Only one panel open at once, 2 = All panels toggle
    appon = True' Set default appbar state to Docked (use false for AutoHide)
    secstart=32
    secgap=0
    loadsettings
    'initializesections'use this instead of load sections when I want to manually configure sections
    loadsections
    loadlogo
    DesktopX.ScriptObject("kdockweatherimage").Object.SetTimer 6001, 600000
    DesktopX.ScriptObject("kdockweatherimage").Object_OnTimer6001
    Object_OnStateChange "Command executed"
    checkshortcuts
    'msgbox UBound(shortcuts)
    populateshortcuts
    displaysections
End Sub

Sub Object_OnStateChange(state)
    If state = "Command executed" Then
        x1=desktopx.Object("wmp_viewer_back").left
        y1=desktopx.Object("wmp_viewer_back").top
        x2=desktopx.Object("wmp_back").left
        y2=desktopx.Object("wmp_back").top
        If appon = True Then
            DesktopX.Object("kbarback").AppbarMode = 1 ' 1=Docked,2=autohide
            appon = False
            tt = "Click to autohide the bar"
            'Object.State = "Docked"
        Else
            DesktopX.Object("kbarback").AppbarMode = 2 ' Autohide
            appon = True
            tt = "Click to lock the bar"
            'Object.State = "Undocked"
        End If
        object.SetTimer 1,3000
    End If
End Sub

Sub Object_OnTimer1
    desktopx.Object("wmp_viewer_back").move x1,y1
    desktopx.Object("wmp_back").move x2,y2
    object.KillTimer 1
End Sub

Function tagstrip(searchtext,tag)
    tagS="<"&tag&">"
    tagF="</"&tag&">"
    start=Instr(1,searchtext,tagS)+Len(tagS)
    If start=Len(tagS) Then
        tagstrip=""
    Else
        finish=Instr(start,searchtext,tagF,1)
        tagstrip=Mid(searchtext,start,finish-start)
    End If
    Set tagS=nothing
    Set tagF=nothing
    Set start=nothing
    Set finish=nothing
End Function

'=======================================SECTIONS========================================

Sub renamesection(num)
    title=DesktopX.Object("sectiontitle" & num).text
    For x = 0 To UBound(sections)
        sectioninfo = sections(x)
        t=tagstrip(sectioninfo,"t")
        s=tagstrip(sectioninfo,"s")
        n=tagstrip(sectioninfo,"n")
        eh=tagstrip(sectioninfo,"eh")
        ch=tagstrip(sectioninfo,"ch")
        g=tagstrip(sectioninfo,"g")
        If t = title Then'ask for user input for new section title
            Do
                t=InputBox("Enter the new section title"&Chr(13)&"(15 characters or less)","K-Dock",title)
                unique=True
                For y = 0 To UBound(sections)'uniqueness check
                    sectioninfo = sections(y)
                    t2=tagstrip(sectioninfo,"t")
                    n2=tagstrip(sectioninfo,"n")
                    If n2<>n And t2=t Then
                        unique=False
                        m=msgbox("That title is already in use"&Chr(13)&"Please enter a unique title",53,"K-Dock")
                        If m=2 Then Exit Sub
                    End If
                Next
            Loop Until Len(t)<=15 And unique
            If t="" Then Exit Sub
            sections(x) = "<t>"&t&"</t><s>"&s&"</s><eh>"&eh&"</eh><ch>"&ch&"</ch><n>"&n&"</n><g>"&g&"</g>"
        End If
    Next
    displaysections
    savesections
    Set m=nothing
End Sub

Sub movesection(num,d)
    title=DesktopX.Object("sectiontitle" & num).text
    For x = 0 To UBound(sections)
        sectioninfo = sections(x)
        n=tagstrip(sectioninfo,"n")
        t=tagstrip(sectioninfo,"t")
        If t=title Then num=Cint(n)
    Next
    If (d=-1 And num<>1) Or (d=1 And num<>(UBound(sections)+1)) Then
        For x = 0 To UBound(sections)
            sectioninfo = sections(x)
            n=Cint(tagstrip(sectioninfo,"n"))
            t=tagstrip(sectioninfo,"t")
            s=tagstrip(sectioninfo,"s")
            eh=tagstrip(sectioninfo,"eh")
            ch=tagstrip(sectioninfo,"ch")
            g=tagstrip(sectioninfo,"g")
            If n=num Then
                sections(x) = "<t>"&t&"</t><s>"&s&"</s><eh>"&eh&"</eh><ch>"&ch&"</ch><n>"&n+d&"</n><g>"&g&"</g>"
            ElseIf n=num+d Then
                sections(x) = "<t>"&t&"</t><s>"&s&"</s><eh>"&eh&"</eh><ch>"&ch&"</ch><n>"&n-d&"</n><g>"&g&"</g>"
            End If
        Next
    End If
    displaysections
    savesections
End Sub

Sub togglesection(num)
    title=DesktopX.Object("sectiontitle" & num).text
    For x = 0 To UBound(sections)
        sectioninfo = sections(x)
        t=tagstrip(sectioninfo,"t")
        If t=title Then group=tagstrip(sectioninfo,"g")
    Next
    For x = 0 To UBound(sections)
        sectioninfo = sections(x)
        t=tagstrip(sectioninfo,"t")
        s=tagstrip(sectioninfo,"s")
        n=tagstrip(sectioninfo,"n")
        eh=tagstrip(sectioninfo,"eh")
        ch=tagstrip(sectioninfo,"ch")
        g=tagstrip(sectioninfo,"g")
        If t = title Then
            If s=1 Then
                s=0
            Else
                s=1
            End If
            sections(x) = "<t>"&t&"</t><s>"&s&"</s><eh>"&eh&"</eh><ch>"&ch&"</ch><n>"&n&"</n><g>"&g&"</g>"
        Else
            If (g=1 And group=1) Or (g=2 And group=2 And system.WorkareaBottom<730) Then    'if grouping=1 then shortcut, so hide all inactive
                s=0                                                                                                                                                    'or if 2, and small screen, toggle calendar and weather
                sections(x) = "<t>"&t&"</t><s>"&s&"</s><eh>"&eh&"</eh><ch>"&ch&"</ch><n>"&n&"</n><g>"&g&"</g>"
            End If
        End If
    Next
    displaysections
    savesections
End Sub

Sub displaysections
    t = secstart
    For y = 1 To (UBound(sections)+1)
    For x = 0 To UBound(sections)
        sectioninfo = sections(x)
        n=Cint(tagstrip(sectioninfo,"n"))
        If n=y Then
        title = tagstrip(sectioninfo,"t")
        If tagstrip(sectioninfo,"s") = "1" Then                                        ' Code for panel to expand
            DesktopX.Object("sectiontitle" & x+1).text=title
            DesktopX.Object("section" & x+1).Height=tagstrip(sectioninfo,"eh")
            DesktopX.Object("kcontainer" & x+1).Height=tagstrip(sectioninfo,"eh")-22
            DesktopX.Object("kcontainer" & x+1).visible=True
            desktopx.Object("section"&x+1).opacity=100'<====
        Else                                                                                                            ' Code for panels to collapse
            DesktopX.Object("sectiontitle" &x+1).text=title
            DesktopX.Object("section" & x+1).Height=tagstrip(sectioninfo,"ch")
            DesktopX.Object("kcontainer" & x+1).visible=False
            'desktopx.Object("section"&x+1).opacity=0'<====
        End If
        DesktopX.Object("section" & x+1).Top = t
        t = t + DesktopX.Object("section" & x+1).Height + secgap
        End If
    Next
    Next
    totalheight=t-secgap
    spare=desktopx.Object("kbarback").height-totalheight
    If spare>130 Then
        desktopx.Object("kdockdove").bottom=desktopx.Object("kbarback").height-(spare-desktopx.Object("kdockdove").height)/2
        desktopx.Object("kdockdove").visible=True
    Else
        desktopx.Object("kdockdove").visible=False
    End If
End Sub

'=======================================SHORTCUTS=======================================

Sub checkshortcuts
    Dim sstemp()'<====
    newparams=False
    numcuts=0'<====
    For i=1 To 30
        infoexists=False
        If desktopx.IsObject("shortcutback"&i) Then'for every shortcut object...
            For x= 0 To UBound(shortcuts)
                shortcutinfo=shortcuts(x)
                n=Cint(tagstrip(shortcutinfo,"n"))
                If n=i Then'...check that parameters are defined
                    infoexists=True
                    Exit For
                End If
            Next
            If infoexists=False Then'...if they aren't
                x=UBound(shortcuts)+1
                ReDim Preserve shortcuts(x)
                shortcuts(x)="<p>notepad.exe</p><c>notepad</c><n>"&i&"</n>"'...create an extra entry
                newparams=True
            End If
            ReDim Preserve sstemp(numcuts)'<====
            sstemp(numcuts)=shortcuts(x)'<====
            numcuts=numcuts+1'<====
        End If
    Next
    For x=0 To UBound(sstemp)'<====
        ReDim Preserve shortcuts(x)'<====
        shortcuts(x)=sstemp(x)'<====
    Next'<====
    savesettings'<====
    'If newparams Then savesettings
End Sub

Sub redefineshortcut(num,p,c)
    For x = 0 To UBound(shortcuts)
        shortcutinfo=shortcuts(x)
        n=tagstrip(shortcutinfo,"n")
        If n=num Then
            shortcuts(x)="<p>"&p&"</p><c>"&c&"</c><n>"&num&"</n>"
            populateshortcuts
            savesettings
            Exit Sub
        End If
    Next
    checkshortcuts
    populateshortcuts
End Sub

Sub launchshortcut(num)
    Set MyShell = CreateObject("WScript.Shell")
    For x = 0 To UBound(shortcuts)
        shortcutinfo=shortcuts(x)
        n=tagstrip(shortcutinfo,"n")
        If n=num Then
            thepath=tagstrip(shortcutinfo,"p")
            MyShell.Run (Chr(34)&thepath&Chr(34))
            Exit Sub
        End If
    Next
    checkshortcuts
    populateshortcuts
End Sub

Sub populateshortcuts
    For x = 0 To UBound(shortcuts)
        shortcutinfo=shortcuts(x)
        thepath=tagstrip(shortcutinfo,"p")
        thecaption=tagstrip(shortcutinfo,"c")
        n=tagstrip(shortcutinfo,"n")
        desktopx.Object("shortcutcaption"&n).text=thecaption
        desktopx.ScriptObject("shortcutback"&n).Object.LocalStorage("p")=thepath
    Next
End Sub

'===================================LOADING AND SAVING==================================
Sub loadsettings'loads settings string from reg (And Set If Not existing):
    Set Sh = CreateObject("WScript.Shell")
    On Error Resume Next
    thecolourscheme = Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\thecolourscheme")
    t_units = Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\t_units")
    DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units") = t_units
    w_units = Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\w_units")
    DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("w_units") = w_units
    x = Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\zipcode")
    DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("zipcode") = x
    shortcutstring=Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\shortcutstring")
    sstemp=split(shortcutstring,"|")
    For x=0 To UBound(sstemp)
        ReDim Preserve shortcuts(x)
        shortcuts(x)=sstemp(x)
    Next
    If err.number <> 0 Then
        thecolourscheme="blue"
        DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units") = "imperial"
        DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("w_units") = "imperial"
        DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("zipcode") = "UKXX0929"
        ReDim shortcuts(0)
        shortcuts(0)="<p>notepad.exe</p><c>notepad</c><n>1</n>"
        savesettings
        err.clear
    End If
    Set x = Nothing
  Set Sh = Nothing
End Sub

Sub savesettings'writes the settings string to the registry
    For x = 0 To UBound(shortcuts)
        If x=0 Then
            shortcutstring=shortcuts(x)
        Else
            shortcutstring=shortcutstring&"|"&shortcuts(x)
        End If
    Next
    Set Sh = CreateObject("WScript.Shell")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\thecolourscheme", thecolourscheme
    t_units = DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("t_units")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\t_units", t_units
    w_units = DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("w_units")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\w_units", w_units
    x = DesktopX.ScriptObject("kdockweatherimage").Object.PersistStorage("zipcode")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\zipcode", x
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\shortcutstring", shortcutstring
    Set Sh = Nothing
    Set shortcutstring = Nothing
    Set x = Nothing
    Set t_units = Nothing
    Set w_units = Nothing
End Sub

Sub loadlogo
    Set Sh = CreateObject("WScript.Shell")
    On Error Resume Next
    logostate=Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\logostate")
    If err.number <> 0 Then
        logostate="dove"
        err.clear
    End If
    desktopx.object("kdockdove").state=logostate
    Set Sh = Nothing
    Set logostate=nothing
End Sub
Sub savelogo(s)
    Set Sh = CreateObject("WScript.Shell")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\logostate", s
    Set Sh = Nothing
End Sub

Sub loadsections
    Set Sh = CreateObject("WScript.Shell")
    On Error Resume Next
    sectionstring=Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\sectionstring")
    sstrtemp=split(sectionstring,"|")
    For x=0 To UBound(sstrtemp)
        ReDim Preserve sections(x)
        sections(x)=sstrtemp(x)
    Next
    If err.number <> 0 Then
        initializesections
        savesections
        err.clear
    End If
  Set Sh = Nothing
  Set x = Nothing
  Set sectionstring = Nothing
End Sub
Sub savesections
    For x = 0 To UBound(sections)
        If x=0 Then
            sectionstring=sections(x)
        Else
            sectionstring=sectionstring&"|"§ions(x)
        End If
    Next
    Set Sh = CreateObject("WScript.Shell")
    Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\Tiggz\K-Dock\sectionstring", sectionstring
    Set Sh = Nothing
    Set x = Nothing
    Set sectionstring = Nothing
End Sub

Sub initializesections
't=title,s=status,eh=expanded height,ch=caption height,n=position,g=grouping
'g=1 shortcut section, g=2 weather or calendar
ReDim sections(8)
sections(0)="<t>weather</t><s>1</s><eh>128</eh><ch>30</ch><n>5</n><g>2</g>"
sections(1)="<t>calendar</t><s>1</s><eh>128</eh><ch>30</ch><n>1</n><g>2</g>"
sections(2)="<t>shortcuts1</t><s>1</s><eh>132</eh><ch>30</ch><n>6</n><g>1</g>"
sections(3)="<t>calculator</t><s>1</s><eh>48</eh><ch>30</ch><n>2</n><g>0</g>"
sections(4)="<t>media</t><s>1</s><eh>80</eh><ch>30</ch><n>3</n><g>0</g>"
sections(5)="<t>controls</t><s>1</s><eh>80</eh><ch>30</ch><n>4</n><g>0</g>"
sections(6)="<t>shortcuts2</t><s>0</s><eh>132</eh><ch>30</ch><n>7</n><g>1</g>"
sections(7)="<t>shortcuts3</t><s>0</s><eh>132</eh><ch>30</ch><n>8</n><g>1</g>"
sections(8)="<t>shortcuts4</t><s>0</s><eh>132</eh><ch>30</ch><n>9</n><g>1</g>"
End Sub

'================================CALLBACKS================================
Sub Object_OnMouseEnter
    DesktopX.ScriptObject("kdocktooltip").tooltip(tt)
End Sub
Sub Object_OnMouseLeave
    DesktopX.ScriptObject("kdocktooltip").tooltip("hide")
End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>216</EditorLeft><EditorTop>-1</EditorTop><EditorRight>1011</EditorRight><EditorBottom>723</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>